home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / grsputl.arc / ALLFADES.TXT next >
Encoding:
Text File  |  1986-08-12  |  1.9 KB  |  77 lines
  1. ;      Demonstration Program to show all basic fades of GRASP.
  2.  
  3. ;           by Doug Wolfgram - Microtex Industries, Inc.
  4.  
  5. ; To run this demo, press F10. When running, to quit, press ESC.
  6.  
  7. ; The screen will clear to blue, then do each fade, full screen, 
  8. ; at what I consider to be the best speed on a PC.  To see  what
  9. ; effect the WINDOW command has  on  the  fades,  uncomment  the
  10. ; command at line 20 by removing the semi-colon and press F10 to
  11. ; run it again. 
  12.  
  13.  
  14.     video a            ; set video mode to 4 color cga
  15.     pload grasp        ; load the picture. default buffer is 1
  16.     color 1            ; set the drawing color for the boxes
  17.  
  18. ; Un-comment the next line to see effect of clip window settings
  19.  
  20. ;          window 56,15,195,124    ; set clip window to constrain fades
  21.  
  22. Top:                ; label indicating the top of the loop
  23.     box 0,0,319,199,100    ; draw with box command to clear screen
  24.     fade 1,1,0,0        ; do the first fade
  25.     box 0,0,319,199,100    ;   etc...
  26.     fade 2,1,0,0
  27.     box 0,0,319,199,100
  28.     fade 3,1,0,0
  29.     box 0,0,319,199,100
  30.     fade 4,1,0,0
  31.     box 0,0,319,199,100
  32.     fade 5,1,0,0
  33.     box 0,0,319,199,100
  34.     fade 6,1,0,0
  35.     box 0,0,319,199,100
  36.     fade 7,1,0,0
  37.     box 0,0,319,199,100
  38.     fade 8,1,0,0
  39.     box 0,0,319,199,100
  40.     fade 9,1,50,0
  41.     box 0,0,319,199,100
  42.     fade 10,1,50,0
  43.     box 0,0,319,199,100
  44.     fade 11,1,50,0
  45.     box 0,0,319,199,100
  46.     fade 12,1,50,0
  47.     box 0,0,319,199,100
  48.     fade 13,1,50,0
  49.     box 0,0,319,199,100
  50.     fade 14,1,50,0
  51.     box 0,0,319,199,100
  52.     fade 15,1,50,0
  53.     box 0,0,319,199,100
  54.     fade 16,1,50,0
  55.     box 0,0,319,199,100
  56.     fade 17,1,50,0
  57.     box 0,0,319,199,100
  58.     fade 18,1,50,0
  59.     box 0,0,319,199,100
  60.     fade 19,1,0,0
  61.     box 0,0,319,199,100
  62.     fade 20,1,0,0
  63.     box 0,0,319,199,100
  64.     fade 21,1,0,0
  65.     box 0,0,319,199,100
  66.     fade 22,1,100,0
  67.     box 0,0,319,199,100
  68.     fade 23,1,100,0
  69.     box 0,0,319,199,100
  70.     fade 24,1,0,0
  71.     box 0,0,319,199,100
  72.     fade 25,1,0,0
  73.  
  74.     goto Top        ; loop back to label 'Top'
  75.  
  76.     exit            ; Exit program. Here for cosmetics only.
  77.